home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #2 / Amiga Plus Extra 1997 #2.iso / pd / misc / macro / oberon / makeheader.ged < prev    next >
Encoding:
Text File  |  1997-02-16  |  2.8 KB  |  110 lines
  1. /*
  2. **  $VER: MakeHeader 1.2 (28 Sep 1994)  **
  3. **
  4. **        © 1994 François Helsen
  5. **
  6. **  PROGRAMNAME:
  7. **      MakeHeader
  8. **
  9. **  FUNCTION:
  10. **      Create a header on ARexx and C programs
  11. **
  12. **  $HISTORY:
  13. **
  14. **  28 Sep 1994 : 1.200 : added German translations
  15. **  05 Jul 1994 : 1.100 : bugfix IF 'Cancel' button was pressed
  16. **  03 Jul 1994 : 1.000 : get 'USERNAME' from GoldEd (registered 0.991+ only)
  17. **  23 Jun 1994 : 0.990 : added 'Readln' function
  18. **  22 Jun 1994 : 0.900 : added '$HISTORY'
  19. **  21 Jun 1994 : 0.800 : added 'Env:USERNAME'
  20. **  20 Jun 1994 : 0.701 : added 'PROGRAMNAME' and 'FUNCTION'
  21. **  20 Jun 1994 : 0.700 : added Copyright 'YYYY'
  22. **  19 Jun 1994 : 0.001 : initial release
  23. */
  24.  
  25. OPTIONS RESULTS                             /* enable return codes     */
  26.  
  27. arg doComment doFold                        /* set to TRUE/FALSE       */
  28.  
  29. OPTIONS RESULTS                             /* enable return codes     */
  30.  
  31. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  32.     address 'GOLDED.1'
  33.  
  34. 'LOCK CURRENT'                              /* lock GUI, gain access   */
  35. OPTIONS FAILAT 6                            /* ignore warnings         */
  36. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  37.  
  38. /* ------------------------- INSERT YOUR CODE HERE: ------------------ */
  39.  
  40. 'QUERY CAT'
  41.  
  42. if (RESULT = "deutsch") then do
  43.  
  44.     ASKNAME    = "Ihr Name"
  45.     ASKPRGNAME = "Programmname"
  46. end
  47. else do
  48.  
  49.     ASKNAME    = "Type in your name"
  50.     ASKPRGNAME = "Give the program name"
  51. end
  52.  
  53. USERNAME = ""
  54. 'QUERY VERSION'
  55.  
  56. IF (RESULT >= 991) THEN
  57.     'QUERY USER VAR=USERNAME'
  58.  
  59. IF (USERNAME = "") THEN DO
  60.     IF Open('namefile', "Env:USERNAME", 'READ') THEN
  61.         USERNAME = ReadLn('namefile')
  62.     ELSE DO
  63.         'REQUEST STRING TITLE="' || ASKNAME || '" VAR=USERNAME'
  64.         IF rc ~= 5 THEN DO
  65.             ADDRESS COMMAND 'ECHO >envarc:USERNAME "' || USERNAME || '"'
  66.             ADDRESS COMMAND 'Copy envarc:USERNAME TO env:'
  67.         END
  68.     END
  69. END
  70.  
  71. 'GOTO TOP'
  72. 'FIRST'
  73.  
  74. 'REQUEST TITLE "' || ASKPRGNAME || '" STRING VAR PROGNAME'
  75.  
  76. IF rc ~= 5 THEN DO
  77.  
  78. 'INSERT LINE'
  79. 'TEXT CR T="(**"'
  80. 'TEXT CR T="****  $VER: ' || PROGNAME || ' 0.001 (' || Date() || ')  ****"'
  81. 'TEXT CR T="****"'
  82. 'TEXT CR T="****        © ' || Right(Date(), 4, ' ') || ' ' || USERNAME || '"'
  83. 'TEXT CR T="****"'
  84. 'TEXT CR T="****  PROGRAMNAME:"'
  85. 'TEXT CR T="****      ' || PROGNAME || '"'
  86. 'TEXT CR T="****"'
  87. 'TEXT CR T="****  FUNCTION:"'
  88. 'TEXT CR T="****      What it does"'
  89. 'TEXT CR T="****"'
  90. 'TEXT CR T="****  $HISTORY:"'
  91. 'TEXT CR T="****"'
  92. 'TEXT CR T="****  ' || Date() || ' :   0.001 : initial release"'
  93. 'TEXT CR T="**)"'
  94. 'DOWN'
  95.  
  96. END
  97.  
  98. /* ---------------------------- END OF YOUR CODE ----------------------- */
  99.  
  100. 'UNLOCK' /* VERY important: unlock GUI */
  101. EXIT
  102.  
  103. SYNTAX:
  104.  
  105. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  106. 'UNLOCK'
  107. EXIT
  108.  
  109.  
  110.